home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / ead / ead13.dms / ead13.adf / Basic / Oroscopo (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-03-10  |  43KB  |  1,149 lines
  1. REM *****************************************************************
  2. REM * Oroscopo Natale - By Luigi R. Callegari - Thanks to M.Mangano *
  3. REM * Pubblicato in EnigmA Amiga Disk 4/1989 - Pubblico Dominio     *
  4. REM * Predisposto per stampante Epson EX800 o Epson compatibili     *
  5. REM *****************************************************************
  6.  
  7. CLEAR:COLOR 3:RANDOMIZE TIMER
  8. DIM k(12),hc(12),c$(13),hc$(12),z$(12),xp(12)
  9. DIM jh$(13),pi$(13),c(13),sz$(13),se$(12),ap$(50)
  10. pi=5.30795e-315
  11. FOR i=0 TO 620 STEP 3.75
  12. LINE (i,0)-(620-i,199)
  13. LINE (0,i/2)-(620,199-i/2)
  14. NEXT i:COLOR 1
  15. ON TIMER (0.5) GOSUB Colori:TIMER ON
  16. LOCATE 11,27:PRINT "ASTROLOGIA"
  17. LOCATE 13,23:PRINT "Stampante ? (S/N)"
  18. wkeyt:key$=UCASE$(INKEY$):IF key$<>"S" AND key$<>"N" THEN wkeyt
  19. IF key$="S" THEN u7=0 :ELSE u7=1
  20.  
  21. SkipHeader:
  22. WINDOW 2,"",(96,0)-(506,185),4:WIDTH 41
  23.  
  24. DEF FN a(x) = INT(x) + INT((x-INT(x)) * 60) / 100
  25. DEF FN q(x) = INT(x) + INT((x-INT(x))*100+0.5)/60
  26. DEF FN s(x) = SIN(x*pi/180)
  27. DEF FN u(x) = x - (INT(x/360)*360)
  28. DEF FN w(x) = INT(x * 100 + 0.5) / 100
  29. DEF FN p(x) = SGN(x)*((ABS(x)/3600)/360-INT((ABS(x)/3600)/360))*360
  30. DEF FN r(x) = x * pi/180
  31. DEF FN d(x) = x * 180 / pi
  32. DEF FN x(x) = ATN( x / (1-x*x) ^ 0.5)
  33. FOR i=1 TO 12:READ c$(i),z$(i),hc$(i):NEXT:c$(12)="Ascendente"
  34.  
  35. Reinput:
  36. CLS:PRINT
  37. PRINT "DATI ANAGRAFICI DEL SOGGETTO:":PRINT:PRINT
  38. INPUT "Nome del soggetto           ";ww$
  39. PRINT
  40. INPUT "Giorno di nascita           ";d
  41. INPUT "Mese di nascita             ";m
  42. INPUT "Anno di nascita   (aaaa)    ";y
  43. INPUT "Ora di nascita   (hh.mm)    ";f
  44. INPUT "Dif. ora di Greenwich (-hh) ";x
  45. INPUT "Città di nascita            ";lu$
  46. INPUT "Longitudine Est             ";l
  47. INPUT "Latitudine Nord             ";b4
  48. PRINT:PRINT:PRINT"  Dati immessi corretti ? (S/N) "
  49. wkey1:
  50. key$=UCASE$(INKEY$):IF key$<>"S" AND key$<>"N" THEN wkey1
  51. IF key$="N" THEN GOTO Reinput
  52. IF u7=0 THEN GOSUB Stampa1
  53.  
  54. f9=f:x9=x:f=(FN q(f)+x)/24:l9=l:l5=SGN(l)*FN q(ABS(l))
  55. b4 = FN r(SGN(b4) * FN q(ABS(b4)))
  56. im = 12 * ( y + 4800 ) + m - 3
  57. j = (2 * (im - INT(im/12) * 12) + 7 + 365 * im) / 12
  58. j = INT(j) + d + INT(im/48) - 32083
  59. IF j > 2299171 THEN j = j + INT(im / 4800) - INT(im/1200) + 38
  60. t = ((( j -2415020) + f)-0.5) / 36525
  61. rg = (5.37472e-315 + 5.41912e-315 * t + 0.0929 * t * t) / 3600
  62. rg = (rg + f * 24) / 24
  63. ra = FN u(((rg - INT(rg)) * 24) * 15 - l5)
  64. ra = FN r(ra)
  65. ob = FN r(5.32294e-315 - 5.26699e-315 * t)
  66. a = ra:r=1:GOSUB 1510:x=x * COS(ob):GOSUB 1530:mc=FN d(a)
  67. ob=-ob:a=b4:r=1:GOSUB 1510:q=y:r=x:a=ra:GOSUB 1510:g=x:x=y:y=q
  68. GOSUB 1530:a = a + ob:GOSUB 1510:q = FN x(y):y=x:x=g:GOSUB 1530
  69. IF a < 0 THEN a = a + 2 * pi
  70. zas = FN u(FN d(a) + 90 )
  71. x = FN d(ra):IF b4 < 0 THEN x = FN u(x+180)
  72. x = x / 15:y=INT(x):z=(x-y)*60:x=INT((z-INT(z))*60):z=INT(z)
  73. st$=STR$(y)+"H"+STR$(z)+"M"+STR$(x)+"S"
  74.  
  75. CLS:GOSUB 1900:GOSUB 3005
  76. CLS:LOCATE 10,14:COLOR 3:PRINT "A T T E N D I":COLOR 1
  77. FOR i = 1 TO 9
  78. GOSUB 1480:m=FN r(FN u(s)):GOSUB 1480:e=s:ea=m
  79. FOR a = 1 TO 5:ea=m + e * SIN(ea):NEXT a
  80. READ au:rv=FN r(au)*(1-e*COS(ea))
  81. x = au * (COS(ea)-e):y = au * SIN(ea) * (1-e*e)^0.5
  82. GOSUB 1530:GOSUB 1480:a=FN d(a)+s:GOSUB 1480:v=FN u(a+s):m=FN r(s):b=FN r(v)
  83. GOSUB 1480:in=FN r(s):a=ATN(COS(in)*TAN(b-m)):IF a < 0 THEN a=a + pi
  84. a = FN d(a+m):IF ABS(v-a) > 10 THEN a = a - 180
  85. c = FN r(FN u(a)):d = ATN(SIN(c-m) * TAN(in))
  86. IF i=1 THEN m1=rv:c1=c:GOTO 1030
  87. x = ((rv^0.5+m1^0.5)*(m1^0.5*rv^0.5))/(rv^1.5+m1^1.5):x=x-COS(c1-c)
  88. IF x < 0 THEN h$=" R" :ELSE h$=" "
  89.  
  90. 1030 :
  91. x = rv * COS(d) * COS(c)
  92. y = rv * COS(d) * SIN(c)
  93. z = rv * SIN(d)
  94. IF i=1 THEN x1=x:y1=y:z1=z:GOTO 1090
  95. x=x-x1:y=y-y1:z=z-z1
  96. GOSUB 1530:g=a:y=z:x=r:GOSUB 1530:c=FN d(g)
  97.  
  98. 1090 :
  99. IF i=1 THEN c = FN u(FN d(c1) + 180)
  100. z = c: GOSUB 1490: xp(i)=z
  101. yl$=c$(i):GOSUB 3370:hj$=yl$
  102. yl$=STR$(z1):GOSUB 3390:hj$=hj$+yl$
  103. hj$=hj$+"G."
  104. yl$=STR$(z2):GOSUB 3390:hj$=hj$+yl$
  105. hj$=hj$+"M. "
  106. yl$=z$(q):GOSUB 3410:hj$=hj$+yl$+h$
  107. jh$(i)=hj$:NEXT i
  108. ll = 973563 + 1732564379 * t - 4 * t * t
  109. g = 1012395 + 6189 * t +1.6 * t * t
  110. g1 = 1203586 + 14648523 * t - 37 * t * t
  111. nn = 933060 - 6962911 * t + 7.5 * t * t
  112. d = 1262655 + 1602961611 * t - 5 * t * t
  113. yy = 3600:l=(ll-g1)/yy:l7=ll-d:l1=(l7-g)/yy:f=(ll-nn)/yy:d=d/yy:x=2*d
  114. ml = 22639.6 * FN s(l) - 4568.4 * FN s(l-x)+2369.89 * FN s(x) + 769 * FN s(2*l)
  115. ml = ml - 668.9 * FN s(l1) - 411.6 * FN s(2*f) - 211.7 * FN s(2*l-x) - 206.2*FN s(l+l1-2*d)
  116. ml = ml + 191.9 * FN s(l+x) - 165.4 * FN s(l1-x) + 147.9 * FN s(l-l1) - 124.8 * FN s(d)
  117. ml = ml -109.8 * FN s(l+l1)-55.2*FN s(2*f-x)-45.1*FN s(l+2*f)+39.5*FN s(l-2*f)
  118. ml = ml - 38.4 * FN s(l-4*d)+36.1 * FN s(3*l) - 30.8 * FN s(2*l-4*d)-28.5*FN s(l-l1-2*d)
  119. c(1) = FN p(ll+ml):c(2)=FN u(FN p(nn))
  120. FOR i = 10 TO 11
  121. z = c(i - 9):GOSUB 1490
  122. yl$=c$(i):GOSUB 3370:hj$=yl$
  123. yl$=STR$(z1):GOSUB 3390:hj$=hj$+yl$
  124. hj$=hj$+"G."
  125. yl$=STR$(z2):GOSUB 3390:hj$=hj$+yl$
  126. hj$ = hj$+"M. "
  127. yl$ = z$(q):GOSUB 3410:hj$=hj$+yl$
  128. jh$(i)=hj$:NEXT i
  129.  
  130. FOR i=1 TO 11:pi$(i)=LEFT$(jh$(i),11):sz$(i)=MID$(jh$(i),25,3):NEXT
  131.  
  132. CLS:
  133. IF u7 = 0 THEN LPRINT TAB(33);"DOMIFICAZIONE":LPRINT:FOR i=1 TO 6:LPRINT TAB(20);dj$(i):NEXT
  134. PRINT :PRINT "POSIZIONI DEI PIANETI:"
  135. IF u7 = 0 THEN LPRINT:LPRINT TAB(30);"POSIZIONI DEI PIANETI":LPRINT
  136. PRINT:PRINT jh$(1):PRINT jh$(10)
  137. IF u7 = 0 THEN LPRINT TAB(20);jh$(1):LPRINT TAB(20);jh$(11)
  138. FOR i=2 TO 9:PRINT jh$(i)
  139. IF u7 = 0 THEN LPRINT TAB(20);jh$(i)
  140. NEXT:PRINT jh$(11):IF u7=0 THEN LPRINT TAB(20);jh$(11):LPRINT
  141.  
  142. FOR i=1 TO 11:jh$(i)="":NEXT:GOSUB 3005
  143. GOSUB 2620:GOSUB 3500
  144.  
  145. CLS:LOCATE 12,6:PRINT "Vuoi un altro grafico ? (S/N)"
  146. waitk2:
  147. key$=UCASE$(INKEY$):IF key$<>"N" AND key$<>"S" THEN waitk2
  148. IF key$="S" THEN RUN 
  149. WINDOW CLOSE 2:CLEAR:CLS:TIMER OFF
  150. END
  151.  
  152. 1480 :
  153. READ s,s1,s2:s=s + s1 * t + s2 * t * t:RETURN
  154.  
  155. 1490 :
  156. z3=INT(z):q=INT(z3/30)+1:z1=INT(FN w(z3/30-INT(z3/30))*30)
  157. z2=INT(INT(((z-z3)*60)*10+0.5)/10):RETURN
  158.  
  159. 1510 :
  160. IF a=0 THEN a=5.14892e-315
  161. x = r * COS(a):y = r * SIN(a):RETURN
  162.  
  163. 1530 :
  164. IF y = 0 THEN y = 5.14892e-315
  165. r = SQR(x * x + y * y):a=ATN(y/x):IF a < 0 THEN a = a + pi
  166. IF y < 0 THEN a = a + pi
  167. RETURN
  168.  
  169. 1690 :
  170. FOR i=1 TO 6:z = FN u(hc(i)):GOSUB 1490
  171. yl$ = hc$(i):GOSUB 3430:hj$=yl$
  172. yl$=STR$(z1):GOSUB 3390:hj$=hj$+yl$ 
  173. hj$=hj$+"G."
  174. yl$=STR$(z2):GOSUB 3390:hj$=hj$+yl$
  175. hj$ = hj$ + "M. "
  176. yl$ = z$(q):GOSUB 3410:hj$ = hj$ + yl$
  177. PRINT hj$:dj$(i)=hj$
  178. IF i=1 THEN jh$(13)=hj$:pi$(13)=MID$(jh$(13),6,11):sz$(13)=MID$(jh$(13),30,3)
  179. IF i=4 THEN jh$(12) = hj$
  180. pi$(12) = MID$(jh$(12),611):sz$(12)=MID$(jh$(12),30,3)
  181. NEXT i
  182. RETURN
  183. GOTO 3685
  184.  
  185. 1900 :
  186. CLS:PRINT:PRINT "TEMPO SIDERALE LOCALE: ";st$:PRINT:PRINT
  187. z=zas:GOSUB 1490:PRINT"CUSPIDI DELLE CASE:":PRINT
  188. ob =ABS(ob):hc(1)=mc
  189. da = FN x(TAN(b4) * TAN(ABS(ob))): xz=1
  190. FOR i=1 TO 5
  191. ad =da / 3 * xz:GOSUB 2230
  192. fi = ATN(SIN(ad) * (1/TAN(ABS(ob))))
  193. ao = ra + (( pi / 6) * i)
  194. IF ao > 0 AND ao < pi/2 THEN oa = ao
  195. IF ao > pi/2 AND ao < pi THEN oa = pi - ao
  196. IF ao > pi AND ao < 3/2*pi THEN oa = ao - pi
  197. IF ao > 3/2*pi AND ao < 2*pi THEN oa = 2 * pi - ao
  198. IF ao > 2*pi AND ao<5/2*pi THEN oa = ao - 2 * pi
  199. IF ao > 5/2*pi AND ao < 3*pi THEN oa = 3 * pi - ao
  200. aa = ATN(TAN(fi) / COS(oa))
  201. IF ao > 0 AND ao < pi/2 THEN ab = aa + ob
  202. IF ao > pi/2 AND ao < pi THEN ab = aa - ob
  203. IF ao > pi AND ao < 3/2*pi THEN ab = aa - ob
  204. IF ao > 3/2*pi AND ao < 2*pi THEN ab = aa + ob
  205. IF ao > 2*pi AND ao < 5/2*pi THEN ab = aa + ob
  206. IF ao > 5/2*pi AND ao < 3*pi THEN ab = aa - ob
  207. lo = ATN(TAN(oa) * COS(aa)/COS(ab)):IF lo < 0 THEN lo = lo + pi
  208. IF ao > 0 AND ao < pi/2 THEN lg = lo
  209. IF ao > pi/2 AND ao<pi THEN lg = pi - lo
  210. IF ao > pi AND ao < 3/2*pi THEN lg = lo + pi
  211. IF ao > 3/2 *pi AND ao < 2 * pi THEN lg = 2 * pi - lo
  212. IF ao > 2*pi AND ao < 5/2*pi THEN lg = lo
  213. IF ao >5/2*pi AND ao < 3*pi THEN lg = 3*pi-lo
  214. hc(i+1)=FN d(lg)
  215. NEXT i
  216.  
  217. FOR i=1 TO 6:z = FN u(hc(i)):GOSUB 1490
  218. yl$ = hc$(i):GOSUB 3430:hj$=yl$
  219. yl$=STR$(z1):GOSUB 3390:hj$=hj$+yl$
  220. hj$=hj$+"G."
  221. yl$=STR$(z2):GOSUB 3390:hj$=hj$+yl$
  222. hj$ = hj$ + "M. "
  223. yl$ = z$(q):GOSUB 3410:hj$ = hj$ + yl$
  224. PRINT hj$:dj$(i)=hj$
  225. IF i=1 THEN jh$(13)=hj$:pi$(13)=MID$(jh$(13),6,11):sz$(13)=MID$(jh$(13),30,3)
  226. IF i=4 THEN jh$(12) = hj$
  227. pi$(12) = MID$(jh$(12),6,11):sz$(12)=MID$(jh$(12),30,3)
  228. NEXT i:RETURN
  229.  
  230. 2230 :
  231. IF fl<>1 AND (xz/3)<1 THEN fl=0:xz=xz+1:RETURN
  232. xz=xz-1:fl=1:RETURN
  233.  
  234. 2620 :
  235. su=xp(1):me=xp(2):ve=xp(3):ma=xp(4):ju=xp(5):sa=xp(6):ur=xp(7)
  236. ne=xp(8):pl=xp(9):xp(10)=c(1):mo=xp(10):xp(11)=c(2):mn=xp(11):xp(12)=zas
  237. FOR yu=1 TO 5:READ a$(yu):NEXT
  238.  
  239. 2660 :
  240. CLS:LOCATE 10,15:COLOR 3:PRINT "A T T E N D I":ct=1:COLOR 1
  241.  
  242. hw$="Sole":GOSUB 3151:ty=su:GOSUB 3320
  243. hw$="Luna":GOSUB 3151:ty=mo:GOSUB 3320
  244. hw$="Mercurio":GOSUB 3151:ty=me:GOSUB 3320
  245. hw$="Venere":GOSUB 3151:ty=ve:GOSUB 3320
  246. hw$="Marte":GOSUB 3151:ty=ma:GOSUB 3320
  247. hw$="Giove":GOSUB 3151:ty=ju:GOSUB 3320
  248. hw$="Saturno":GOSUB 3151:ty=sa:GOSUB 3320
  249. hw$="Urano":GOSUB 3151:ty=ur:GOSUB 3320
  250. hw$="Nettuno":GOSUB 3151:ty=ne:GOSUB 3320
  251. hw$="Plutone":GOSUB 3151:ty=pl:GOSUB 3320
  252.  
  253. 3141 :
  254. GOSUB 3148
  255. FOR  i=1 TO ct:PRINT ap$(i)
  256. IF u7=0 THEN LPRINT TAB(20);ap$(i)
  257. IF i=16 OR i=32 OR i=48 OR i=64 THEN 3145 :ELSE 3147
  258. 3145 :
  259. GOSUB 3005:GOSUB 3148
  260. 3147 :
  261. NEXT i:GOSUB 3005:FOR i=1 TO ct:ap$(i)="":NEXT:RETURN
  262.  
  263. 3148 :
  264. CLS:PRINT TAB(12);"A S P E T T I":PRINT :
  265. IF u7 = 0 THEN LPRINT: LPRINT TAB(32);"A S P E T T I":LPRINT
  266. RETURN
  267. 3151 :
  268. IF LEN(hw$) < 9 THEN hw$=hw$+" ":GOTO 3151
  269. RETURN
  270.  
  271. 3170 :
  272. IF xc>=0 AND xc<=10 THEN ap$=hw$+a$(1):GOSUB 3361
  273. IF xc>=56 AND xc<=64 THEN ap$=hw$+a$(2):GOSUB 3361
  274. IF xc>=84 AND xc<=96 THEN ap$=hw$+a$(3):GOSUB 3361
  275. IF xc>=112 AND xc<=128 THEN ap$=hw$+a$(4):GOSUB 3361
  276. IF xc>=170 AND xc<=190 THEN ap$=hw$+a$(5):GOSUB 3361
  277. xc = 0:RETURN
  278.  
  279. 3270 :
  280. IF xc > 240 THEN xc = 360 - xc
  281. GOSUB 3170:RETURN
  282.  
  283. 3320 :
  284. FOR tu=1 TO 12:xc=ABS(ty-xp(tu)):IF xp(tu)<>ty THEN GOSUB 3270
  285. NEXT:RETURN
  286.  
  287. 3361 :
  288. ws = INT(FN a(xc)):af$=STR$(ws):ap$(ct)=ap$+c$(tu)
  289. 3362 :
  290. IF LEN(ap$(ct)) < 31 THEN ap$(ct)=ap$(ct) + " ":GOTO 3362
  291. ap$(ct) = ap$(ct) + af$ + "G"
  292. ct = ct + 1:RETURN
  293.  
  294. 3370 :
  295. IF LEN(yl$) < 11 THEN yl$ = yl$ + " ":GOTO 3370
  296. RETURN
  297. 3390 :
  298. IF LEN(yl$) < 4 THEN yl$ = yl$ + " ":GOTO 3390
  299. RETURN
  300. 3410 :
  301. IF LEN(yl$) < 10 THEN yl$ = yl$ + " ":GOTO 3410
  302. RETURN
  303. 3430 :
  304. IF LEN(yl$) < 16 THEN yl$ = yl$ + " ":GOTO 3430
  305. IF LEFT$(yl$,4)="I   " THEN yl$=LEFT$(yl$,5)+"Ascendente "
  306. IF LEFT$(yl$,4)="IV  " THEN yl$=LEFT$(yl$,5)+"Im. Cielo  "
  307. RETURN
  308.  
  309. 3490 :
  310. GOSUB 3005:CLS:RETURN
  311.  
  312. 3500 :
  313. CLS:PRINT:PRINT:PRINT "Interpreto il grafico ? (S/N)"
  314. wkey4:key$=UCASE$(INKEY$):IF key$<>"S" AND key$<>"N" THEN wkey4
  315. IF key$="N" THEN RETURN
  316.  
  317. CLS:LOCATE 10,17:COLOR 3:PRINT "ATTENDI...":COLOR 1:GOTO 4000
  318.  
  319. 3685 :
  320. CLS:PRINT "Domificazione":PRINT:PRINT
  321. FOR i=1 TO 6:PRINT dj$(i):NEXT:GOSUB 3005
  322. IF u7 = 0 THEN 3686
  323. LPRINT:LPRINT TAB(33);"DOMIFICAZIONE":LPRINT:LPRINT
  324. FOR i=1 TO 6:LPRINT TAB(20);dj$(i):NEXT:LPRINT
  325. LPRINT:
  326. 3686 :
  327. FOR i=1 TO 6:dj$(i)="":NEXT
  328. RETURN
  329.  
  330. 3714 :
  331. FOR i=1 TO 10:IF i=8 OR i=9 THEN 3781
  332. GOSUB 20000
  333. PRINT:PRINT pi$(i);" IN    ";lt$:PRINT:PRINT
  334. IF u7=0 THEN LPRINT:LPRINT TAB(20);pi$(i);" IN  ";lt$
  335. ol = LEN(in$(i)):z4 = z4 + 1
  336. x7$(z4) = MID$(in$(i),1,40):z4 = z4 + 1
  337. GOSUB Stampapianeti
  338. FOR j=1 TO z4
  339. PRINT x7$(j):IF u7=0 THEN LPRINT TAB(20);x7$(j)
  340. NEXT:z4=0:PRINT
  341. 3781 :
  342. NEXT:RETURN
  343.  
  344. Stampapianeti:
  345. LPRINT
  346. FOR j=1 TO z4:FOR k=0 TO 5
  347. LPRINT TAB(20);MID$(x7$(j),1+k*41,41)
  348. NEXT k,j
  349. LPRINT:LPRINT:RETURN
  350.  
  351. 20000 :
  352. IF sz$(i) = "ARI" THEN lt$ = "Ariete":RETURN
  353. IF sz$(i) = "TOR" THEN lt$ = "Toro":RETURN
  354. IF sz$(i) = "GEM" THEN lt$ = "Gemelli":RETURN
  355. IF sz$(i) = "CAN" THEN lt$ = "Cancro":RETURN
  356. IF sz$(i) = "LEO" THEN lt$ = "Leone":RETURN
  357. IF sz$(i) = "VER" THEN lt$ = "Vergine":RETURN
  358. IF sz$(i) = "BIL" THEN lt$ = "Bilancia":RETURN
  359. IF sz$(i) = "SCO" THEN lt$ = "Scorpione":RETURN
  360. IF sz$(i) = "SAG" THEN lt$ = "Sagittario":RETURN
  361. IF sz$(i) = "CAP" THEN lt$ = "Capricorno":RETURN
  362. IF sz$(i) = "ACQ" THEN lt$ = "Acquario":RETURN
  363. IF sz$(i) = "PES" THEN lt$ = "Pesci":RETURN
  364.  
  365. 30000 :p1 = p1+72:RETURN
  366. 30001 :p2 = p2 + 6:RETURN
  367.  
  368. 3005 :
  369. LOCATE 20,23:COLOR 3:PRINT "Premi un tasto...";:COLOR 1
  370. wkeyp:IF INKEY$="" THEN wkeyp :ELSE RETURN
  371.  
  372. 4000 :
  373. RESTORE
  374. FOR i = 1 TO 185:READ zas$:NEXT
  375. FOR i = 1 TO 12:READ se$(i):NEXT
  376. FOR i = 1 TO 10:IF i = 1 THEN 4040
  377. FOR k = 2 TO i:GOSUB 30000:NEXT k
  378. 4040 :
  379. FOR j=1 TO 12:IF j<>1 THEN GOSUB 30001
  380. IF sz$(i) = se$(j) THEN pt(i) = p2 + p1
  381. NEXT j
  382. p1 = 0:p2 = 0
  383. NEXT i
  384.  
  385. FOR i = 1 TO 10:IF (i = 8 OR i = 9) THEN GOTO 4200
  386. RESTORE:IF i<>10 THEN 4170
  387. FOR j=1 TO 197 + pt(i) - 144:READ a$: NEXT j:GOTO 4180
  388. 4170 :
  389. FOR j=1 TO 197 + pt(i):READ a$:NEXT j
  390. 4180 :
  391. FOR k=1 TO 6:READ an$(k):NEXT
  392. in$(i) = an$(1) + an$(2) + an$(3) + an$(4) + an$(5) + an$(6)
  393. 4200 :
  394. NEXT
  395. FOR i=1 TO 10:IF i=8 OR i = 9 THEN 4360
  396. GOSUB 20000:CLS:PRINT pi$(i);"  IN ";lt$:PRINT
  397. IF u7=0 THEN LPRINT TAB(20);pi$(i);"  IN ";lt$:LPRINT
  398. PRINT:PRINT in$(i)
  399. IF u7=0 THEN GOSUB Stampa2
  400. GOSUB 3005
  401. 4360 :
  402. NEXT i
  403. RETURN
  404.  
  405. Stampa2:
  406. FOR k=0 TO 5:LPRINT TAB(20);MID$(in$(i),1+k*41,41):NEXT
  407. LPRINT:LPRINT:RETURN
  408.  
  409. Stampadomi:
  410. LPRINT TAB(33);"Domificazione":LPRINT:LPRINT
  411. FOR i=1 TO 6:LPRINT TAB(20);dj$(i):NEXT:LPRINT
  412. LPRINT:RETURN
  413.  
  414. Colori:
  415. PALETTE 3,0.93,RND,0
  416. RETURN
  417.  
  418. Stampa1: ' Stampa dati anagrafici del soggetto 
  419. it=18:pbar$=CHR$(13)+SPACE$(30)+STRING$(20,"-")+CHR$(13)+CHR$(13)
  420. esc$=CHR$(27):col$=esc$+CHR$(114):do$=CHR$(13)+CHR$(13)
  421.  
  422. OPEN "PRT:" FOR OUTPUT AS #2
  423. PRINT #2, col$ + CHR$(6);
  424. PRINT #2, col$ + CHR$(2);
  425. PRINT #2, " "
  426. PRINT #2, TAB(23);"**************************";do$
  427. PRINT #2, TAB(23);"*** GRAFICO     NATALE ***";do$
  428. PRINT #2, TAB(23);"**************************";do$
  429. PRINT #2, col$+CHR$(0);
  430. CLOSE 2
  431.  
  432. LPRINT TAB(25);"Dati anagrafici del soggetto":LPRINT:LPRINT
  433. LPRINT TAB(it);"Nome e Cognome ........... ";ww$
  434. LPRINT TAB(it);"Data di nascita .......... ";d;"/";m;"/";y
  435. LPRINT TAB(it);"Ora di nascita ........... ";f
  436. LPRINT TAB(it);"Differenza in ore da Grnw. ";x
  437. LPRINT TAB(it);"Luogo di nascita ......... ";lu$
  438. LPRINT TAB(it);"Longitudine Est .......... ";l
  439. LPRINT TAB(it);"Latitudine Nord .......... ";b4
  440. LPRINT:LPRINT:LPRINT:RETURN
  441.  
  442. DATA SOLE,ARIETE,X,MERCURIO,TORO,XI,VENERE,GEMELLI,XII
  443. DATA MARTE,CANCRO,I,GIOVE,LEONE,II,SATURNO,VERGINE,III
  444. DATA URANO,BILANCIA,IV,NETTUNO,SCORPIONE,V,PLUTONE
  445. DATA SAGITTARIO,VI,LUNA,CAPRICORNO,VII,NODO LUNARE
  446. DATA ACQUARIO,VIII,"0",PESCI,"IX"
  447.  
  448. DATA 358.4758445,35999.04975,-.000150278,.01675104,-.418e-04,-.126e-6
  449. DATA 1.00000023,101.2208333,1.719175,.000452778,0,0,0,0,0,0
  450. DATA 102.2793806,149472.5153,.6389e-05,.205614210,.2046e-04,-.3e-07
  451. DATA .3870984,28.75375278,.370280556,.000120833,47.14594444,1.185208333
  452. DATA .173889e-03,7.002880556,.001860833,-.18333e-04,212.6032194
  453. DATA 58517.80386
  454. DATA .001286056,.00682069,-.477e-04,.91e-07,.7233316,54.38418611
  455. DATA .508186111,-.001386389
  456. DATA 75.77964722,.89985,.00041,3.393630556,.00100583,-.972e-06,319.529425
  457. DATA 19139.8585,.000180806,.0933129,.92064e-04,-.77e-07,1.5236915
  458. DATA 285.4317611
  459. DATA 1.069766667,.00013125,48.78644167,.770991667,-.1389e-05,1.850333333
  460. DATA -0.000675,.12611e-04,225.4928125,3033.687936,0,.04838144,-.155e-04,0
  461. DATA 5.20290493,273.3930152,1.33834464,0,99.41984827,1.05829152,0
  462. DATA 1.3096585,-.00515613,0,174.215296,1223.507963,0,0.05422831,-.00020495
  463. DATA 0,9.55251745,338.911673,-.31667941,0,112.8261394,.82587569,0
  464. DATA 2.49080547,-.00466035,0,74.17574887,427.2742717,0,.04681664
  465. DATA .00041875,0,19.22150505,95.68630387,2.05082548,0,73.52220082
  466. DATA .52415598,0,.77256652,.00012824,0,30.1329437,240.4551595,0,.00912805
  467. DATA -0.00127185,0,30.1137593,284.168255,-21.6328615,0,130.6841531
  468. DATA 1.10046492,0,1.77939281,-.00975088,0,229.7810007,145.1781092,0
  469. DATA .247973760,.00289875,0,39.53903455,113.5365761,.20863761,0
  470. DATA 108.94405,1.37395444,0,17.15140319,-.01611824,0
  471.  
  472. DATA "CONGIUNTO ","SESTILE   ","QUADRATO  ","TRIGONO   ","OPPOSTO   "
  473. DATA  ARI,TOR,GEM,CAN,LEO,VER,BIL,SCO,SAG,CAP,ACQ,PES
  474.  
  475. DATA "Nell'Ariete, segno che governa la testa, "
  476. DATA "regala uno spirito vivace, comprensione e"
  477. DATA "fervida immaginazione. Caratteristiche   "
  478. DATA "evidenti saranno: coraggio che rasenterà "
  479. DATA "la temerarietà, combattività, generosità "
  480. DATA "e desiderio di indipendenza."
  481.  
  482. DATA "Determina spirito analitico, lealtà, fe- "
  483. DATA "deltà, costanza, ma scarsa curiosità; il "
  484. DATA "soggetto sarà apprezzato per la sua di-  "
  485. DATA "screzione ed obiettività ed anche per la "
  486. DATA "sua ostinazione. Il Toro governa il      "
  487. DATA "collo e la gola."
  488.  
  489. DATA "Regala ricca capacità intellettuale, im- "
  490. DATA "maginazione feconda ma dispersiva legata "
  491. DATA "alla natura doppia e quindi indecisa. Vo-"
  492. DATA "lontà mutevole. Spesso due professioni,  "
  493. DATA "due affetti, due matrimoni. I Gemelli go-"
  494. DATA "vernano bronchi ed i polmoni."
  495.  
  496. DATA "Nel Cancro, segno che governa l'apparato "
  497. DATA "digestivo, dona un'immaginazione fervida,"
  498. DATA "memoria, intuizione e chiaroveggenza. I  "
  499. DATA "sentimenti saranno profondi ma volubili. "
  500. DATA "Riuscita nelle attività in campo sociale "
  501. DATA "e politico."
  502.  
  503. DATA "Nel Leone, segno che governa il cuore e  "
  504. DATA "le malattie connesse, regala uno spirito "
  505. DATA "sintetico dalle concezioni molto ampie.  "
  506. DATA "Senso estetico ed artistico, amante della"
  507. DATA "perfezione e del lusso. Sensualità po-   "
  508. DATA "tente e personalità egocentrica."
  509.  
  510. DATA "Nella Vergine rende il soggetto meticolo-"
  511. DATA "so ed osservatore in modo quasi ossessi- "
  512. DATA "vo, con uno spirito analitico-logico ed  "
  513. DATA "ingegnoso. Acuta intuizione psicologica, "
  514. DATA "netta inclinazione per le scienze esatte "
  515. DATA "e vivacità nel linguaggio."
  516.  
  517. DATA "Accentra gli interessi nei campi artisti-"
  518. DATA "ci, musicali, sociali. Il soggetto sarà  "
  519. DATA "dolce ed altruista, equo, ma dalla vo-   "
  520. DATA "lontà debole, tendente ai divertimenti ed"
  521. DATA "ad eccessi sessuali, goloso. La bilancia "
  522. DATA "governa gli organi genitali."
  523.  
  524. DATA "Nello Scorpione rende avidi intelettual- "
  525. DATA "mente e con uno spiccato interesse per la"
  526. DATA "vita e la morte interpretate attraverso  "
  527. DATA "le scienze occulte. Volontà tenace, sen- "
  528. DATA "sualità istintiva, avventure sentimentali"
  529. DATA "precoci."
  530.  
  531. DATA "Acuisce le attitudini filosofiche e so-  "
  532. DATA "ciologiche. Il soggetto ama l'indipenden-"
  533. DATA "za, il movimento e la vita all'aria aper-"
  534. DATA "ta, è goloso e sensuale, ottimista e fi- "
  535. DATA "ducioso, di indole accomodante e spensie-"
  536. DATA "rata. Il sagittario governa il fegato."
  537.  
  538. DATA "Regala ottima memoria, concentrazione e  "
  539. DATA "riflessività. Il soggetto, amante dello  "
  540. DATA "studio, ricerca la solitudine ed ha spes-"
  541. DATA "so un atteggiamento estremamente critico "
  542. DATA "verso se stesso e verso gli altri. Abili-"
  543. DATA "tà nei lavori di pazienza."
  544.  
  545. DATA "Dona grande curiosità, facile assimila-  "
  546. DATA "zione, acuto senso critico. Rende il sog-"
  547. DATA "getto fedele ed onesto nei sentimenti,di-"
  548. DATA "screto e socievole. Dotato di grande vo- "
  549. DATA "lontà. Unioni imprevedibili e tendenza   "
  550. DATA "al divorzio."
  551.  
  552. DATA "Determina imntuitività, emotività e sen- "
  553. DATA "sibilità. Il soggetto sarà portato per le"
  554. DATA "arti e le speculazioni intellettuali; la "
  555. DATA "volontà sarà instabile e la fiducia in se"
  556. DATA "stessi spesso labile. Guadagni modesti e "
  557. DATA "spese elevate. I Pesci governano i piedi."
  558.  
  559. DATA "Grande curiosità ed attività intellettua-"
  560. DATA "le, senso critico, vivacità nel linguag- "
  561. DATA "gio ed attitudine alla polemica. Favori- "
  562. DATA "sce gli studi, le scoperte e gli impieghi"
  563. DATA "che si ricollegano alla medicina e al di-"
  564. DATA "ritto."
  565.  
  566. DATA "Indice di socievolezza, cortesia e diplo-"
  567. DATA "mazia. Sviluppa le tendenze artistiche e "
  568. DATA "favorisce la realizzazione in campo musi-"
  569. DATA "cale. Piaceri sensuali. Grande stabilità "
  570. DATA "di aspirazioni. Buoni esiti in campo fi- "
  571. DATA "nanziario."
  572.  
  573. DATA "Eccellente combinazione che conferisce al"
  574. DATA "soggetto agilità e vivacità mentale.     "
  575. DATA "Favorisce la carriera in campo letterario"
  576. DATA "e protegge i viaggi ed il commercio in   "
  577. DATA "genere.                                  "
  578. DATA "                   "
  579.  
  580. DATA "Crea un rapporto armonico tra razionalità"
  581. DATA "ed immaginazione. Accresce la sensibilità"
  582. DATA "ed acutizza la memoria. Sviluppa nel sog-"
  583. DATA "getto l'amore per l'avventura e l'attitu-"
  584. DATA "dine ai viaggi.                          "
  585. DATA "               "
  586.  
  587. DATA "Favorisce le attitudini artistiche,la ge-"
  588. DATA "nerosità, l'entusiasmo, la franchezza e  "
  589. DATA "dà stabilità nei sentimenti. Amore per i "
  590. DATA "figli. Posizione fortunata per il gioco e"
  591. DATA "le speculazioni.                         "
  592. DATA "               "
  593.  
  594. DATA "Chiarezza e logica. Capacità linguistiche"
  595. DATA "e facilità di eloquio. Acuisce il senso  "
  596. DATA "pratico e quindi favorisce il lavoro di  "
  597. DATA "ufficio e la direzione di grandi imprese."
  598. DATA "Indica difficoltà nel raggiungimento     "
  599. DATA "della celebrità."
  600.  
  601. DATA "Accresce la diplomazia, il buongusto e lo"
  602. DATA "equilibro intellettuale. Indica un carat-"
  603. DATA "tere simpatico, onesto ed allegro. Svi-  "
  604. DATA "luppa il senso artistico. E' spesso indi-"
  605. DATA "ce di matrimonio precoce.                "
  606. DATA "                   "
  607.  
  608. DATA "Intelligenza molto viva e facilità di    "
  609. DATA "linguaggio, senso ironico. Denota discre-"
  610. DATA "zione ed a volte diffidenza. Consiglia le"
  611. DATA "carriere di medico, farmacista ed avvoca-"
  612. DATA "to. Si tratta di soggetto tenace.        "
  613. DATA "               "
  614.  
  615. DATA "Denota indipendenza mentale, tendenze fi-"
  616. DATA "losofiche e religiose. Favorisce i viaggi"
  617. DATA "e quindi l'import/export. Indica saggezza"
  618. DATA "e successo in campo sociale e politico.  "
  619. DATA "                                         "
  620. DATA "                           "
  621.  
  622. DATA "Spirito serio, riflessivo penetrante e   "
  623. DATA "paziente, adatto allo studio della mate- "
  624. DATA "matica, della filosofia e di tutte le    "
  625. DATA "scienze esatte. Ambizione notevole, ma   "
  626. DATA "ritardi nella realizzazione.             "
  627. DATA "                           "
  628.  
  629. DATA "Sul piano intellettuale è la migliore    "
  630. DATA "posizione zodiacale, poichè dona origina-"
  631. DATA "lità e doti di inventiva. Il soggetto non"
  632. DATA "manca di socievolezza e di benevolenza.  "
  633. DATA "Buona posizione per un inventore od un   "
  634. DATA "astrologo.      "
  635.  
  636. DATA "Grande intuizione e sensibilità. Denota  "
  637. DATA "un carattere dolce, conciliante e facil- "
  638. DATA "mente influenzabile dall'ambiente. Indica"
  639. DATA "difficoltà nella riuscita delle proprie  "
  640. DATA "aspirazioni. Posizione eccellente per i  "
  641. DATA "chiaroveggenti."
  642.  
  643. DATA "Ardore amoroso che può dare luogo a colpi"
  644. DATA "di testa ed a capricci. Genrosità e spen-"
  645. DATA "sieratezza. Soggetto simpatico, ma un po'"
  646. DATA "impulsivo. Indica spesso un matrimonio   "
  647. DATA "precoce, ma raramente duraturo. Successo "
  648. DATA "nella libera professione."
  649.  
  650. DATA "Determina carattere armonioso. Indice di "
  651. DATA "fedeltà. Assicura una notevole fortuna   "
  652. DATA "e favorisce il successo nel commercio a- "
  653. DATA "gricolo e nelle istituzioni finanziarie. "
  654. DATA "Indica buon gusto nell'arredamento.      "
  655. DATA "                    "
  656.  
  657. DATA "Grande facilità di eloquio. I sentimenti "
  658. DATA "sono mutevoli e causano spesso legami si-"
  659. DATA "multanei. Acuisce l'amore per i viaggi.  "
  660. DATA "Riuscita in attività che comportano nu-  "
  661. DATA "merosi spostamenti.                       "
  662. DATA "                  "
  663.  
  664. DATA "Benefica influenza dei genitori. Fortuna "
  665. DATA "in lavori dipendenti. Viaggi e cambiamen-"
  666. DATA "ti abbastanza numerosi. Successo nella   "
  667. DATA "maturità.                                "
  668. DATA "Sensualità piuttosto eccessiva.          "
  669. DATA "                        "
  670.  
  671. DATA "Predisposizione alla infatuazioni senti- "
  672. DATA "mentali, ma vissute intensamente. Indica "
  673. DATA "amore per il bello e per il lusso. Fortu-"
  674. DATA "na al gioco e nelle speculazioni di tipo "
  675. DATA "economico in generale.                   "
  676. DATA "                    "
  677.  
  678. DATA "Eccessiva razionalità che cerca di con-  "
  679. DATA "trollare i sentimenti. Indica matrimonio "
  680. DATA "d'amore e non di interesse. Favorisce i  "
  681. DATA "lavori non precari preferibilmente orien-"
  682. DATA "tati in carriere paramediche.            "
  683. DATA "                        "
  684.  
  685. DATA "Indica un carattere amabile, distinto e  "
  686. DATA "amante della giustizia. Favorisce spesso "
  687. DATA "matrimoni precoci, vantaggiosi ed armo-  "
  688. DATA "niosi. Associazioni e collaborazioni pos-"
  689. DATA "sono facilitare la carriera.             "
  690. DATA "                  "
  691.  
  692. DATA "Questa posizione indica spesso un carat- "
  693. DATA "tere passionale soggetto a crisi di gelo-"
  694. DATA "sia e possessività. Il soggetto si sforza"
  695. DATA "di essere amabile cercando di superare la"
  696. DATA "istintiva diffidenza ed ombrosità. Facile"
  697. DATA "riuscita nel commercio."
  698.  
  699. DATA "Denota ottimismo, gaiezza, bontà, genero-"
  700. DATA "sità e simpatia per il prossimo solita-  "
  701. DATA "mente ricambiata. Posizione fortunata in "
  702. DATA "tutti i campi, soprattutto in quello fi- "
  703. DATA "nanziario. Amore per i viaggi."
  704. DATA "                             "
  705.  
  706. DATA "Indice di lealtà, fedeltà, correttezza.  "
  707. DATA "Favorisce spesso un legame matrimoniale  "
  708. DATA "nella maturità vissuto in manera troppo  "
  709. DATA "cerebrale. Buona posizione per un archi- "
  710. DATA "tetto, uno scultore od anche un uomo po-"
  711. DATA "litico."
  712.  
  713. DATA "Indica sincerità, diplomazia e sensibili-"
  714. DATA "tà. Attrazione per le nuove teorie in    "
  715. DATA "campo sociale. Rischio di separazione e  "
  716. DATA "di divorzio. Favorisce la carriera arti- "
  717. DATA "stica e cinematografica.                 "
  718. DATA "                 "
  719.  
  720. DATA "Dolcezza e capacità di mediazione. Tende "
  721. DATA "ai legami nascosti e contemporanei.      "
  722. DATA "Delusioni sentimentali abbastanza fre-   "
  723. DATA "quenti. Indecisione nei progetti che reca"
  724. DATA "difficoltà nella realizzazione della     "
  725. DATA "personalità         "
  726.  
  727. DATA "Determina una indole passionale non sem- "
  728. DATA "pre costante nei sentimenti. Numerose av-"
  729. DATA "venture passeggere. Oggetto poco adatto  "
  730. DATA "a ruoli di subalterno. Estrema ambizione "
  731. DATA "e volontà. Ottimo medico. Predisposizione"
  732. DATA "alla carriera militare."
  733.  
  734. DATA "Accentua gli appettiti sessuali e confe- "
  735. DATA "risce determinazione nelle azioni, perse-"
  736. DATA "veranza e capacità nel sormontare qualsi-"
  737. DATA "asi ostacolo. Guadagni facili, anche se  "
  738. DATA "il soggetto non è molto portato per la   "
  739. DATA "economia.     "
  740.  
  741. DATA "Intelligenza particolarmente attiva ed   "
  742. DATA "ingegnosa. Capacità dialettica. Doti per "
  743. DATA "la ricerca scientifica. Soggetto che può "
  744. DATA "riuscire nelle attività più disparate, ma"
  745. DATA "soprattutto nella carriera giornali-     "
  746. DATA "stica.           "
  747.  
  748. DATA "Vivacità immaginativa, indipendenza, co- "
  749. DATA "raggio. Amore per i viaggi e tendenza ai "
  750. DATA "cambiamenti di residenza. Incostanza nei "
  751. DATA "sentimenti. Posizione non troppo fortuna-"
  752. DATA "ta.                                      "
  753. DATA "                   "
  754.  
  755. DATA "Indipendenza, ma stabilità nei sentimenti"
  756. DATA "ed attitudini al comando. Soggetto facil-"
  757. DATA "mente entusiasmabile. Numerose avventure "
  758. DATA "sentimentali che ritarderanno il matrimo-"
  759. DATA "nio. Guadagni cospicui.                  "
  760. DATA "                       "
  761.  
  762. DATA "Configurazione eccellente che acuisce la "
  763. DATA "logica ed il ragionamento. Senso critico "
  764. DATA "e pratico molto sviluppato spesso a sca- "
  765. DATA "pito della sensibilità. Realizzazione    "
  766. DATA "non sempre facile.                       "
  767. DATA "                        "
  768.  
  769. DATA "Soggetto spontaneo ed ardito nei senti-  "
  770. DATA "menti amorosi. Il suo amore per la giu-  "
  771. DATA "stizia lo spinge a prendere le parti dei "
  772. DATA "più deboli. Collaborazioni sconsigliabili"
  773. DATA "per rischiosi malintesi. Matrimoni spesso"
  774. DATA "precoci."
  775.  
  776. DATA "Posizione difficile indicante tensioni   "
  777. DATA "col coniuge nella gestione del bilancio  "
  778. DATA "economico familiare. Una possibile eredi-"
  779. DATA "tà ottenuta susciterà gelosie e spese    "
  780. DATA "eccessive.                               "
  781. DATA "                 "
  782.  
  783. DATA "Soggetto sportivo amante dei viaggi av-  "
  784. DATA "venturosi. Determina fiducia in se stessi"
  785. DATA "e quindi spesso entusiasmi eccessivi.    "
  786. DATA "Questa posizione regala simpatia e dispo-"
  787. DATA "nibilità. Possibili campi di residenza.  "
  788. DATA "                  "
  789.  
  790. DATA "Senso pratico, ambizione e perseveranza  "
  791. DATA "che indicano capacità di realizzazione.  "
  792. DATA "Il successo è assicurato dai meriti      "
  793. DATA "personali. Non dalla pura fortuna.       "
  794. DATA "                                         "
  795. DATA "                 "
  796.  
  797. DATA "Curiosità scientifica particolarmente vi-"
  798. DATA "va. Riuscita nelle attività che interes- "
  799. DATA "sano la meccanica e l'elettricità.       "
  800. DATA "Fortunate carriere in aviazione. Possibi-"
  801. DATA "li discordie con amici.                  "
  802. DATA "                 "
  803.  
  804. DATA "Sensualità a volte eccessiva. Interesse  "
  805. DATA "per le professioni ai limiti con la lega-"
  806. DATA "lità. Buoni i rapporti di collaborazione "
  807. DATA "e le attività che si ricollegano alla me-"
  808. DATA "dicina.                                  "
  809. DATA "                         "
  810.  
  811. DATA "Determina volontà, indipendenza, ambizio-"
  812. DATA "ne, audacia, sincerità. Propizio per la  "
  813. DATA "direzione e la riuscita di grandi impre- "
  814. DATA "se: facilita i ruoli di leader. Ottima   "
  815. DATA "posizione per i medici. Gli avvocati, i  "
  816. DATA "banchieri ed i militari."
  817.  
  818. DATA "Denota dolcezza e paura della solitudine "
  819. DATA "fiuto per gli affari. Riuscita nel com-  "
  820. DATA "mercio alimentare, nella viticoltura e   "
  821. DATA "nell' allevamento  del bestiame.         "
  822. DATA "                                         "
  823. DATA "                   "
  824.  
  825. DATA "Soggetto simpatico e socievole, delicato."
  826. DATA "Provenienza dei cospicui guadagni non    "
  827. DATA "sempre chiara.                           "
  828. DATA "Viaggi lunghi frequenti.                 "
  829. DATA "
  830. DATA "            "
  831.  
  832. DATA "Determina rispetto per la famiglia e     "
  833. DATA "idee tradizionaliste, amore per la tran- "
  834. DATA "quillità domestica. Genitori benestanti  "
  835. DATA "A volte notorietà conquistata nel luogo  "
  836. DATA "di nascita.                              "
  837. DATA "                 "
  838.  
  839. DATA "Franchezza, magnanimità e senso della    "
  840. DATA "organizzazione. Soggetto amante dei bam- "
  841. DATA "bini. Successo nelle carriere dirigenzia-"
  842. DATA "li e nelle grandi industrie. Guadagni no-"
  843. DATA "tevoli dovuti alle proprie capacità di   "
  844. DATA "livello superiore. "
  845.  
  846. DATA "Natura studiosa ed inventiva portata per "
  847. DATA "l'organizzazione. Precisione di giudizio "
  848. DATA "e grande sottigliezza. Il suo senso pra- "
  849. DATA "tico gli assicura il successo in ogni    "
  850. DATA "campo.                                   "
  851. DATA "         "
  852.  
  853. DATA "Amore per la giustizia, carattere equili "
  854. DATA "brato ed ottimista. Soggetto non amante  "
  855. DATA "del lavoro individuale. Favorito il lega-"
  856. DATA "me matrimoniale e la carriera politica e "
  857. DATA "nel sistema giudiziario.                 "
  858. DATA "          "
  859.  
  860. DATA "Carattere  combattivo  e  fiducia  in se "
  861. DATA "stessi. Soggetto egoista e di sensualità "
  862. DATA "spiccata. Buona posizione per la libera  "
  863. DATA "professione in genere.                   "
  864. DATA "                                         "
  865. DATA "              "
  866.  
  867. DATA "Questa posizione indica cambiamenti di   "
  868. DATA "residenza e lunghi viaggi generalmente   "
  869. DATA "vantaggiosi. Favorito il commercio di im-"
  870. DATA "portazione/esportazione. Possibilità di  "
  871. DATA "carriere religiose.                      "
  872. DATA "           "
  873.  
  874. DATA "Carattere previdente, paziente, ordinato."
  875. DATA "Attitudine al comando ed alla organizza- "
  876. DATA "zione col rischio di eccessiva severità  "
  877. DATA "verso i subalterni. Favorite le carriere "
  878. DATA "indipendenti.                            "
  879. DATA "             "
  880.  
  881. DATA "Indica carattere originale, cortese  ed  "
  882. DATA "umanitario. Successo finanziario dovuto  "
  883. DATA "per lo più allo sfruttamento di scoperte "
  884. DATA "industriali.  Buona posizione per lo stu-"
  885. DATA "dio dell'occultismo.                     "
  886. DATA "             "
  887.  
  888. DATA "Favorisce le avventure sentimentali clan-"
  889. DATA "destine. Realizzazione raggiungibile più "
  890. DATA "facilmente in ruoli subalterni dove ven- "
  891. DATA "gono attenuati i rischi di rovesci della "
  892. DATA "fortuna.                                 "
  893. DATA "             "
  894.  
  895. DATA "Attitudine al comando con tendenza al di-"
  896. DATA "spotismo. Soggetto in generale poco for- "
  897. DATA "tunato.                                  "
  898. DATA "Predisposizione alla meccanica.          "
  899. DATA "                                         "
  900. DATA "             "
  901.  
  902. DATA "Indica un carattere paziente e perseve-  "
  903. DATA "rante, ma che può anche degenerare nel   "
  904. DATA "fanatismo. Progressi piuttosto lenti ma  "
  905. DATA "regolari.                                "
  906. DATA "Cambiamenti piuttosto rari.              "
  907. DATA "                "
  908.  
  909. DATA "Indica un carattere tendente alla menzo- "
  910. DATA "gna ed a volte anche al rancore. Grande  "
  911. DATA "discrezione. Favorisce le carriere intel-"
  912. DATA "lettuali ed artistiche.                  "
  913. DATA "                                         "
  914. DATA "                     "
  915.  
  916. DATA "Carattere esageratamente tradizionalista "
  917. DATA "indica la necessità di un impegno duro   "
  918. DATA "e costante per la realizzazione delle    "
  919. DATA "proprie ambizioni. Avvenimenti di maggio-"
  920. DATA "re rilievo nella maturità.               "
  921. DATA "              "
  922.  
  923. DATA "Buone capacità organizzative, ma caratte-"
  924. DATA "re spesso troppo autoritario e orgoglioso"
  925. DATA "portato alla gelosia. Delusioni amorose  "
  926. DATA "nella adolescenza.                       "
  927. DATA "                                         "
  928. DATA "             "
  929.  
  930. DATA "Intelligenza predisposta alla logica ed  "
  931. DATA "alla analisi. Attitudini scientifiche.   "
  932. DATA "Carattere spesso malinconico. Favorisce  "
  933. DATA "il successo nel commercio.               "
  934. DATA "                                         "
  935. DATA "                    "
  936.  
  937. DATA "Denota un carattere equilibrato e pruden-"
  938. DATA "te. Attitudini artistiche. Indica un ma- "
  939. DATA "trimonio generalmente tardivo con delle  "
  940. DATA "difficoltà di intesa tra coniugi.        "
  941. DATA "                                         "
  942. DATA "              "
  943.  
  944. DATA "Sul piano intellettuale indica doti di   "
  945. DATA "inventiva e metodicità. Necessità di con-"
  946. DATA "tinue lotte per realizzare i propri pro- "
  947. DATA "getti.                                   "
  948. DATA "Progresso lento ma regolare.             "
  949. DATA "              "
  950.  
  951. DATA "Indica una intelligenza idealista proiet-"
  952. DATA "ata verso la filosofia e la religione.   "
  953. DATA "Amore per il prossimo e forte senso dello"
  954. DATA "onore. Ambizione. Viaggi molto fortunati."
  955. DATA "                                         "
  956. DATA "               "
  957.  
  958. DATA "Indica un'intelligenza profonda ed un    "
  959. DATA "buon senso pratico. Progresso lento ma   "
  960. DATA "regolare che assicura una buona realizza-"
  961. DATA "zione nella maturità.                    "
  962. DATA "                                         "
  963. DATA " 
  964.  
  965. DATA "Assicura un' intelligenza attiva e vivace"
  966. DATA "ed a volte un carattere testardo ed ec-  "
  967. DATA "centrico. Attitudine per le attivita'    "
  968. DATA "più disparate.                           "
  969. DATA "                                         "
  970. DATA "                 "
  971.  
  972. DATA "Carattere tendente alla ipocrisia ed alla"
  973. DATA "gelosia. Indica poca sicurezza ed inquie-"
  974. DATA "tudine riguardo alle scelte da effettuare"
  975. DATA "Favorisce un lavoro tranquillo, spesso di"
  976. DATA "tipo sedentario.                         "
  977. DATA "                   "
  978.  
  979. DATA "Interessi scientifici ed attrazione per  "
  980. DATA "le nuove teorie. Intelligenza portata al-"
  981. DATA "la inventiva. Successo in lavori autonomi"
  982. DATA "di tipo generale.                        "
  983. DATA "                                         "
  984. DATA "                  "
  985.  
  986. DATA "Attitudini artistiche. Irregolarità nelle"
  987. DATA "entrate. Spesso impulsivo e portato agli "
  988. DATA "eccessi nelle spese economiche.          "
  989. DATA "                                         "
  990. DATA "                                         "
  991. DATA "                  "
  992.  
  993. DATA "Posizione eccellente per lo sviluppo     "
  994. DATA "telettivo. Eccesso di senso critico.     "
  995. DATA "Probabili lunghi viaggi.                 "
  996. DATA "                                         "
  997. DATA "                                         "
  998. DATA "                  "           
  999.  
  1000. DATA "Amore capriccioso ed instabile. Improv-  "
  1001. DATA "visi rovesci di fortuna e disaccordi in  "
  1002. DATA "famiglia possono ostacolare la realizza- "
  1003. DATA "zione dell apersonalità.                 "
  1004. DATA "                                         "
  1005. DATA "                  "
  1006.  
  1007. DATA "Denota indipendenza ed insicurezza. Ca-  "
  1008. DATA "rattere originale e seducente. Avventure "
  1009. DATA "sentimentali impreviste e romantiche.    "
  1010. DATA "                                         "
  1011. DATA "                                         "
  1012. DATA "                   "
  1013.  
  1014. DATA "Attitudine per i lavori di 'bricolage'.  "
  1015. DATA "Riuscita nelle attività commerciali,     "
  1016. DATA "in campo letterario e nelle attività di  "
  1017. DATA "tipo paramedico.                         "
  1018. DATA "                                         "
  1019. DATA "                   "
  1020.                                           
  1021. DATA "Posizione he accresce il fascino magneti-"
  1022. DATA "co e la capacità di seduzione. Denota una"
  1023. DATA "tendenza alla infedeltà con rischi di    "
  1024. DATA "separazione coniugale.                   "
  1025. DATA "                                         "
  1026. DATA "                   "
  1027.  
  1028. DATA "Denota forza di volontà e sottigliezza   "
  1029. DATA "intellettuale. Riuscita in tutte le oc-  "
  1030. DATA "cupazioni che richiedono attivismo,      "
  1031. DATA "Iniziativa ed ingegnosità.               "
  1032. DATA "                                         "
  1033. DATA "                    "
  1034.  
  1035. DATA "Indica un grande amore per i viaggi e per"
  1036. DATA "l' avventura. Intelligenza intuitiva.    "
  1037. DATA "Interesse per la sociologia e la politica"
  1038. DATA "in generale.                             "
  1039. DATA "                                         "
  1040. DATA "                           "
  1041.  
  1042. DATA "Può denotare disarmonia familiare ed im- "
  1043. DATA "provvisi rovesci di fortuna che ostacola-"
  1044. DATA "no la realizzazione della personalità del"
  1045. DATA "soggetto.                                "
  1046. DATA "                                         "
  1047. DATA "                      "
  1048.  
  1049. DATA "Indica una intelligenza attiva e creativa"
  1050. DATA "il successo è spesso raggiunto grazie al-"
  1051. DATA "l'appoggio di amici fidati.              "
  1052. DATA "                                         "
  1053. DATA "                                         "
  1054. DATA "                    "
  1055.  
  1056. DATA "Indica spesso spese eccessive e tendenza "
  1057. DATA "a contrarre debiti.  Tendenze  mistiche  "
  1058. DATA "marcate.                                 "
  1059. DATA "Mancanza di senso critico.               "
  1060. DATA "                                         "
  1061. DATA "                 "
  1062.  
  1063. DATA "Indica curiosità  intellettuale e fervida"
  1064. DATA "immaginazione.  Carattere impulsivo ed   "
  1065. DATA "indipendente, amante dei viaggi e della  "
  1066. DATA "avventura.                               "
  1067. DATA "Attitudine al comando.                   "
  1068. DATA "                 "
  1069.  
  1070. DATA "Assicura buona memoria ma scarsa immagi- "
  1071. DATA "nazione. Stabilità di idee e di sentimen-"
  1072. DATA "ti. Favorisce gli investimenti finanziari"
  1073. DATA "soprattutto in terreni ed immobili.      "
  1074. DATA "                                         "
  1075. DATA "                 "
  1076.  
  1077. DATA "Indica facilità di linguaggio e diploma- "
  1078. DATA "zia. Facilita la riuscita nel commercio e"
  1079. DATA "nel campo letterario. Attrazione per il  "
  1080. DATA "giornalismo.                             "
  1081. DATA "                                         "
  1082. DATA "                  "
  1083.  
  1084. DATA "Carattere amabile e socievole.Indica pro-"
  1085. DATA "tezione da parte della famiglia e fre-   "
  1086. DATA "quenti cambiamenti di domicilio.         "
  1087. DATA "Successo nella maturità.                 "
  1088. DATA "                                         "
  1089. DATA "                  "
  1090.  
  1091. DATA "Indica immaginazione feconda e buona me- "
  1092. DATA "moria. Instabilità  sentimentale. Attra- "
  1093. DATA "zione per il gioco. Possibili guadagni a "
  1094. DATA "causa di spostamenti o di speculazioni   "
  1095. DATA "fortunate.                               "
  1096. DATA "                    "
  1097.  
  1098. DATA "Intelligenza pronta ma non particolarmen-"
  1099. DATA "te creativa. Mentalità  impiegatizia. A  "
  1100. DATA "volte indica difficoltà nella realiz-    "
  1101. DATA "zione delle proprie aspirazioni. Riuscita"
  1102. DATA "nel commercio.                           "
  1103. DATA "                     "
  1104.  
  1105. DATA "Intelligenza vivace ed amore per il lusso"
  1106. DATA "e la bellezza. Tendenze artistiche. Suc- "
  1107. DATA "cesso nel campo della moda.  Matrimonio  "
  1108. DATA "precoce che influenzerà tutta la vita.   "
  1109. DATA "                                         "
  1110. DATA "                    "
  1111.  
  1112. DATA "Indica immaginazione e curiosità intel-  "
  1113. DATA "lettuale. Interesse per l'antichità. Pre-"
  1114. DATA "dice una carriera contrastata e la neces-"
  1115. DATA "sità di lottare a lungo per raggiungere  "
  1116. DATA "il successo.                             "
  1117. DATA "                     "
  1118.  
  1119. DATA "Interesse per la filosofia, la sociologia"
  1120. DATA "e la religione. Amore per i viaggi e per "
  1121. DATA "l'avventura. Posizione che indica una    "
  1122. DATA "certa fortuna e  prosperità. Interesse   "
  1123. DATA "esagerato per il cibo.                   "
  1124. DATA "                     "
  1125.  
  1126. DATA "Denota una certa aridità di sentimenti e "
  1127. DATA "anche costanza e fedeltà. Il soggetto è  "
  1128. DATA "attratto dallo studio paziente e minu-   "
  1129. DATA "zioso.  Indica cambiamenti e progressiva "
  1130. DATA "realizzazione attraverso il lavoro.      "
  1131. DATA "                      "
  1132.  
  1133. DATA "Assicura un carattere originale ed una   "
  1134. DATA "intelligenza aperta all'intuizione scien-"
  1135. DATA "tifica.  Possibilità di successo in tutte"
  1136. DATA "le carriere legate alle nuove scoperte.  "
  1137. DATA "                                         "
  1138. DATA "                     "
  1139.  
  1140. DATA "Favorisce la tendenza alle fantasticherie"
  1141. DATA "carattere socievole e conciliante ma sug-"
  1142. DATA "gestionabile. Forti appettiti sessuali.  "
  1143. DATA "Generalmente non è indice di successo.   "
  1144. DATA "                                         "
  1145. DATA "                      "
  1146.  
  1147. END
  1148.  
  1149.